! Stahltrger_Makro
!Written BY  STEFAN FELBER ,VIENNA (TEL: 43-58-473)
!                     date: 91.09.03
! used macros : Var_DRahmen_Makro,KreisLoch_Makro
! a = height
! b = width
! c = length
! d = thickness in height
! e = thickness in width
! f = count of holes
! g = diameter of holes

PRISM_ 7,c,    ! frame top
-d/2,+(b/2-e),15,
-a/2,+(b/2-e),15,
-a/2,+(b/2),15,
+a/2,+(b/2),15,
+a/2,+(b/2-e),15,
+d/2,+(b/2-e),15,
-d/2,+(b/2-e),-1

PRISM_ 7,c,    ! frame bottom
-d/2,-(b/2-e),15,
-a/2,-(b/2-e),15,
-a/2,-(b/2),15,
+a/2,-(b/2),15,
+a/2,-(b/2-e),15,
+d/2,-(b/2-e),15,
-d/2,-(b/2-e),-1

!*** creating the holes
u= c/(f+1)
v= b-2*e
w=d

roty -90
addy -v/2
addz -w/2

call "Var_DRahmen_Makro" c,v,w,0,15,u/2,u/2,0,0
addx u/2

gosub 310

!*** the end
del top
end

310:   !*** internal subroutine for circle holes
for r = 1 to f
      call "KreisLoch_Makro" u,v,w,g,0
      addx u
      next r
return     


end

